clear all
set more off
** Change the following line according to the location of the replicaiton files on your computer
cd "/Your/Working/Directory/PSRM_code_data"

use "data/final_stata_data_for_regression.dta", clear
 
label var corruptionreport "Reports of Corruption"
label var corruptionreport_norm "Reports of Corruption (Normalized)"
label var agegap "Age Gap"
label var yiogap "Years in Office Gap"
label var samefaction "Same Faction"
label var nfactionno1 "News=0 and Event=1"
label var efactionno1 "News=1 and Event=0"
label var bfactionno "News=0 and Event=0"
label var bfactionyes "News=1 and Event=1"

label var nfaction1 "Single Faction Ties (News)"
label var nfaction2 "Multiple Faction Ties (News)"
label var efaction1 "Single Faction Ties (Event)"
label var efaction2 "Multiple Faction Ties (Event)"
label var gnagegap "Age Gap"
label var gnyiogap "Years in Office Gap"
label var gnsamefaction "Same Faction"
label var ngnfactionno1 "News=0 and Event=1"
label var egnfactionno1 "News=1 and Event=0"
label var bgnfactionno "News=0 and Event=0"
label var bgnfactionyes "News=1 and Event=1"
label var ngnfaction1 "Single Faction Ties (News)"
label var ngnfaction2 "Multiple Faction Ties (News)"
label var egnfaction1 "Single Faction Ties (Event)"
label var egnfaction2 "Multiple Faction Ties (Event)"
label var pgnfaction "PS-GN Same Faction (News)"
label var pgefaction "PS-GN Same Faction (Event)"
label var gapInfluence "Patron Power Gap"

label var nClanInfluence "Patron Power for PS (News)"
label var eClanInfluence "Patron Power for PS (Event)"
label var nworkClanInfluence "Patron Power for PS (News, Workplace Connection)"
label var eworkClanInfluence "Patron Power for PS (Event, Workplace Connection)"
label var nAverageInfluence "Average Patron Power for PS (News)"
label var eAverageInfluence "Average Patron Power for PS (Event)"
label var ngnClanInfluence "Patron Power for GN (News)"
label var egnClanInfluence "Patron Power for GN (Event)"
label var ngnAverageInfluence "Average Patron Power for GN (News)"
label var egnAverageInfluence "Average Patron Power for GN (Event)"
label var nRank_high "Highest Patron Rank (News)"
label var eRank_high "Highest Patron Rank (Event)"
label var ngnRank_high "Highest Patron Rank for GN(News)"
label var egnRank_high "Highest Patron Rank for GN(Event)"
label var nRank_total "Total Patron Official Rank (News)"
label var eRank_total "Total Patron Official Rank (Event)"
label var ngnRank_total "Total Patron Official Rank for GN(News)"
label var egnRank_total "Total Patron Official Rank for GN(Event)"
label var nAverageRank "Average Patron Official Rank (News)"
label var eAverageRank "Average Patron Official Rank (Event)"
label var ngnAverageRank "Average Patron Official Rank for GN(News)"
label var egnAverageRank "Average Patron Official Rank for GN(Event)"
label var diffClanRank "Power Difference (Rank)"

label var nAverageNetwork "Average Patron Network Power (News)"
label var eAverageNetwork "Average Patron Network Power (Event)"
label var nNetwork_total "Total Patron Network Power (News)"
label var eNetwork_total "Total Patron Network Power (Event)"
label var diffNetwork "Network Power Difference"
label var nNetwork_high "Highest Patron Network Power (News)"
label var eNetwork_high "Highest Patron Network Power (Event)"

label var diffClanInfluence "nClanInfluence - eClanInfluence for PS"
label var diffworkClanInfluence "Power Difference (Workplace Connection)"
label var diffgnClanInfluence "ngnClanInfluence - egnClanInfluence for PS"
label var time_to_NPC "Year to NPC"
label var NPC_year "Year of NPC"
label var chairman_power "President Power"
label var diffClanInfluence "Power Difference"
label var relativeClanInfluence "Relative Power"
label var diffClanInfluenceDummyMore "More Power Dummy"
label var diffClanInfluenceDummyLess "Less Power Dummy"
label var diffClanInfluenceDummyENS "Same Power Dummy (not Same Faction)"
label var diffAverageInfluence "Average Power Difference"

g time_to_NPC_2 = time_to_NPC * time_to_NPC

label var time_to_NPC_2 "Year to NPC Square"

g log_nClanInfluence = log(nClanInfluence + 1)
g log_eClanInfluence = log(eClanInfluence + 1)
g log_ngnClanInfluence = log(ngnClanInfluence + 1)
g log_egnClanInfluence = log(egnClanInfluence + 1)
g log_chairman_power = log(chairman_power + 1)
g log_relative_power = log(relativeClanInfluence)
g log_gap_power = log(gapInfluence + 1)
g log_corruption_report = log(corruptionreport + 1)

g inter_nClanInfluence_samfaction = nClanInfluence * samefaction
g inter_eClanInfluence_samfaction = eClanInfluence * samefaction

g inter_nInfluence_nfaction1 = nClanInfluence * nfaction1
g inter_nInfluence_nfaction2 = nClanInfluence * nfaction2
g inter_eInfluence_efaction1 = eClanInfluence * efaction1
g inter_eInfluence_efaction2 = eClanInfluence * efaction2

g inter_gn_nInfluence_nfaction1 = ngnClanInfluence * ngnfaction1
g inter_gn_nInfluence_nfaction2 = ngnClanInfluence * ngnfaction2
g inter_gn_eInfluence_efaction1 = egnClanInfluence * egnfaction1
g inter_gn_eInfluence_efaction2 = egnClanInfluence * egnfaction2

g inter_NPC_samfaction = time_to_NPC * samefaction
g inter_of_NPC_nClanInfluence = NPC_year * nClanInfluence
g inter_of_NPC_eClanInfluence = NPC_year * eClanInfluence
g inter_head_NPC_nClanInfluence = head_NPC_year * nClanInfluence
g inter_head_NPC_eClanInfluence = head_NPC_year * eClanInfluence
g inter_to_NPC_nClanInfluence = time_to_NPC * nClanInfluence
g inter_to_NPC_eClanInfluence = time_to_NPC * eClanInfluence
g inter_chairman_power_samfaction = log_chairman_power * samefaction

g inter_of_NPC_ngnClanInfluence = NPC_year * ngnClanInfluence
g inter_of_NPC_egnClanInfluence = NPC_year * egnClanInfluence
g inter_to_NPC_ngnClanInfluence = time_to_NPC * ngnClanInfluence
g inter_to_NPC_egnClanInfluence = time_to_NPC * egnClanInfluence


bysort eventprov year : egen prov_reported = sum(province_name_news) 
bysort newsprov year: egen prov_reporting = sum(province_name_news) 

replace corruptionreport_norm = (corruptionreport*100)/prov_reporting
replace partylinecorruption_norm = (partylinecorruption*100)/province_name_party_news
replace comlinecorruption_norm = (comlinecorruption*100)/province_name_commerical_news
g corruptionreport_norm1 = corruptionreport/prov_reported  
label var corruptionreport_norm "share of corruption news out of all news reported by news prov"
label var corruptionreport_norm1 "share of corruption news out of all news reporting on event prov"


label var log_nClanInfluence "Patron Power (News Log)"
label var log_eClanInfluence "Patron Power (Event Log)"
label var log_ngnClanInfluence "Patron Power (News Log)"
label var log_egnClanInfluence "Patron Power (Event Log)"
label var log_chairman_power "Chairman Power"
label var log_relative_power "Relative Power (News v.s Event)"
label var log_gap_power "Patron Power Gap (News v.s Event)"

label var inter_nClanInfluence_samfaction "Power x Same Faction"

label var inter_nInfluence_nfaction1 "Power x Single Ties (News)"
label var inter_nInfluence_nfaction2 "Power x Multiple Ties (News)"
label var inter_eInfluence_efaction1 "Power x Single Ties (Event)"
label var inter_eInfluence_efaction2 "Power x Multiple Ties (Event)"

label var inter_gn_nInfluence_nfaction1 "Power x Single Ties (News)"
label var inter_gn_nInfluence_nfaction2 "Power x Multiple Ties (News)"
label var inter_gn_eInfluence_efaction1 "Power x Single Ties (Event)"
label var inter_gn_eInfluence_efaction2 "Power x Multiple Ties (Event)"
label var inter_of_NPC_nClanInfluence "Year of NPC x Patron Power (News)"
label var inter_of_NPC_eClanInfluence "Year of NPC x Patron Power (Event)"
label var inter_to_NPC_nClanInfluence "Year to NPC x Patron Power (News)"
label var inter_to_NPC_eClanInfluence "Year to NPC x Patron Power (Event)"
label var inter_chairman_power_samfaction "Chairman Power x Same Faction"

label var diffTitleClanInfluence "Power Difference (Title)"
label var nTitleClanInfluence "Patron Power (News Title)"
label var eTitleClanInfluence "Patron Power (Event Title)"

label var nThreeClanInfluenceNone "Patron Power (News, Three None)"
label var eThreeClanInfluenceNone "Patron Power (Event, Three None)"
label var nThreeClanInfluenceSingle "Patron Power (News, Three Single)"
label var eThreeClanInfluenceSingle "Patron Power (Event, Three Single)"
label var samefaction "Same Faction"
label var nfactionno1 "News=0 and Event=1"
label var efactionno1 "News=1 and Event=0"
label var bfactionno "News=0 and Event=0"
label var bfactionyes "News=1 and Event=1"

label var nThreefactionSingleno1 "News=0 and Event=1"
label var eThreefactionSingleno1 "News=1 and Event=0"
label var bThreefactionSingleno "News=0 and Event=0"
label var bThreefactionSingleyes "News=1 and Event=1"
label var nThreefactionSingle1 "Single Faction Ties (News)"
label var nThreefactionSingle2 "Multiple Faction Ties (News)"
label var eThreefactionSingle1 "Single Faction Ties (Event)"
label var eThreefactionSingle2 "Multiple Faction Ties (Event)"
label var pgnThreefactionSingle "PS-GN Same Faction (News)"
label var pgeThreefactionSingle "PS-GN Same Faction (Event)"

label var nThreefactionNoneno1 "News=0 and Event=1"
label var eThreefactionNoneno1 "News=1 and Event=0"
label var bThreefactionNoneno "News=0 and Event=0"
label var bThreefactionNoneyes "News=1 and Event=1"
label var nThreefactionNone1 "Single Faction Ties (News)"
label var nThreefactionNone2 "Multiple Faction Ties (News)"
label var eThreefactionNone1 "Single Faction Ties (Event)"
label var eThreefactionNone2 "Multiple Faction Ties (Event)"
label var pgnThreefactionNone "PS-GN Same Faction (News)"
label var pgeThreefactionNone "PS-GN Same Faction (Event)"

label var relativeClanInfluenceNoPP "Relative Power (NoPP)"
label var diffClanInfluenceNoPP "Power Diference (NoPP)"
label var nClanInfluenceNoPP "Patron Power (News, NoPP)"
label var eClanInfluenceNoPP "Patron Power (Event, NoPP)"
label var relativeClanInfluencePP "Relative Power (PP)"
label var diffClanInfluencePP "Power Diference (PP)"
label var nClanInfluencePP "Patron Power (News, PP)"
label var eClanInfluencePP "Patron Power (Event, PP)"

save "data/final_patron_power_norm.dta", replace

use "data/final_patron_power_norm.dta", clear


***************************************************************************************************************************************************************************************************
** Table 1: Baseline
**************************
eststo clear
* corruption news
eststo: qui reghdfe corruptionreport nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
* share of corruption news from all news reported by news prov
eststo: qui reghdfe corruptionreport_norm nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab , b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/table1_baseline.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace


** Table 2: Power Difference
eststo clear
eststo: qui reghdfe corruptionreport diffClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)

eststo: qui reghdfe corruptionreport_norm diffClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab  , b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/table2_power_difference.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

************* 
* promotion *
*************
clear

use "data/final_patron_power_norm.dta", clear
sort year newsprov
bysort year newsprov:keep if _n == 1
rename newsprov province
sort  year   province
order year province prov_reporting
keep year province prov_reporting
edit
save "data/prov_leader_patronpewer_n.dta", replace

use "data/final_patron_power_norm.dta", clear
sort year eventprov
bysort year eventprov: keep if _n == 1
rename eventprov province
sort year province
keep year province prov_reported
save "data/prov_leader_patronpewer_e.dta", replace
joinby year province using "data/prov_leader_patronpewer_n.dta", unmatched(master)
sort year province
drop _merge
save "data/prov_leader_patronpewer_e.dta", replace
 

use "data/final_patron_power_norm.dta", clear
keep year newsprov nAverageInfluence nAverageNetwork nAverageRank nClanInfluence nNetwork_high nNetwork_total nRNetwork_high nRank nRank_high nRank_total nTies nfaction ngnAverageInfluence ngnAverageRank ngnClanInfluence ngnRank ngnRank_high ngnRank_total ngnTies diffTitleClanInfluence nTitleClanInfluence  eTitleClanInfluence
bysort year newsprov:keep if _n == 1
rename newsprov province
edit
save "data/prov_leader_patronpewer.dta", replace

use "data/prov_leader_promotion.dta", clear
sort year province
label var corruptioncases "Big Corruption Cases"
label var safetytolls "Deaths in Safty Accidence"
label var corruptioncount "Reported by Other Province"
label var safetycount "Accident Reports by Other Province"
label var reportcorruption "Reporting on Other Province"
label var reportsafety "Reports on Other Province"
label var gdpgrowth "GDP Growth Rate"
label var lngdppop "GDP Per Captia (log)"
label var age "Age"
label var age2 "Age Square"
label var eduyear "Years of Education"
label var single "Single Factional Ties"
label var multiple "Multiple Factional Ties"
keep if ps == 1
sort year province 
 
joinby year province using "data/prov_leader_patronpewer_e.dta", unmatched(using)
sort year province
drop _merge
joinby year province using "data/prov_leader_patronpewer.dta", unmatched(using)
sort year province
drop _merge
order year province prov_reporting prov_reported
edit
quietly by year province:  gen dup = cond(_N==1,0,_n)
keep if ps == 1
edit
save "data/final_prov_ps_promotion.dta", replace
 
g corruptioncount_norm = (corruptioncount*1000)/prov_reported
g safetycount_norm = (safetycount*1000)/prov_reported
g reportcorruption_norm = (reportcorruption*1000)/prov_reporting
g reportsafety_norm = (reportsafety*1000)/prov_reporting
label var corruptioncount_norm "Reported by Other Province (normalized)"
label var safetycount_norm "Accident Reported by Other Province (normalized)"
label var reportcorruption_norm "Reporting on Other Province (normalized)"
label var reportsafety_norm "Accident Reports on Other Province (normalized)"

sort year province 
order year province prov_reported prov_reporting

g corruption_influence = corruptioncases*nClanInfluence 
g reported_influence = corruptioncount*nClanInfluence 
g reporting_influence = reportcorruption*nClanInfluence
g reported_influence_norm = corruptioncount_norm*nClanInfluence 
g reporting_influence_norm = reportcorruption_norm*nClanInfluence

save "data/final_prov_ps_promotion.dta", replace

use "data/final_prov_ps_promotion.dta", clear
* see if patron power decrease the chance of promotion with corruption
eststo clear
eststo: xi: qui reghdfe promote c.nClanInfluence##c.corruptioncases corruptioncount single multiple gdpgrowth lngdppop age age2 eduyear if year>1999 & ps==1 & province!=11, ab(province year) vce(r)
eststo: xi: qui reghdfe promote c.nClanInfluence##c.corruptioncases reportcorruption single multiple gdpgrowth lngdppop age age2 eduyear if year>1999 & ps==1 & province!=11, ab(province year) vce(r)
eststo: xi: qui reghdfe promote c.nClanInfluence##c.corruptioncases corruptioncount reportcorruption single multiple gdpgrowth lngdppop age age2 eduyear if year>1999 & ps==1 & province!=11, ab(province year) vce(r)
eststo: xi: qui reghdfe promote c.nClanInfluence##c.corruptioncases corruptioncount_norm single multiple gdpgrowth lngdppop age age2 eduyear if year>1999 & ps==1 & province!=11, ab(province year) vce(r)
eststo: xi: qui reghdfe promote c.nClanInfluence##c.corruptioncases reportcorruption_norm single multiple gdpgrowth lngdppop age age2 eduyear if year>1999 & ps==1 & province!=11, ab(province year) vce(r)
eststo: xi: qui reghdfe promote c.nClanInfluence##c.corruptioncases corruptioncount_norm reportcorruption_norm single multiple gdpgrowth lngdppop age age2 eduyear if year>1999 & ps==1 & province!=11, ab(province year) vce(r)
esttab  , keep(nClanInfluence corruptioncases c.nClanInfluence#c.corruptioncases  corruptioncount   reportcorruption  corruptioncount_norm   reportcorruption_norm  ) b(3) se(3) ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/table3_promotion.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace



***************************************************************************************************************************************************************************************************

**************
** APPENDIX **
**************

use "data/final_patron_power_norm.dta", clear


** Table A.2
* Summary Statistics
sutex corruptionreport corruptionreport_norm province_name_news nClanInfluence eClanInfluence diffClanInfluence chairman_power pgnfaction pgefaction agegap yiogap  if newsprov!=11 & eventprov!=11, label replace file("table/tableA2_summary_statistics.tex") title("Summary statistics") minmax 

** Table A.3
** Distinct President and Premier Power from Other Committee Members
eststo clear
* corruption news
eststo: qui reghdfe corruptionreport nClanInfluencePP eClanInfluencePP nClanInfluenceNoPP eClanInfluenceNoPP pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nClanInfluencePP eClanInfluencePP nClanInfluenceNoPP eClanInfluenceNoPP pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nClanInfluencePP eClanInfluencePP nClanInfluenceNoPP eClanInfluenceNoPP pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
* share of corruption news from all news reported by news prov
eststo: qui reghdfe corruptionreport_norm nClanInfluencePP eClanInfluencePP nClanInfluenceNoPP eClanInfluenceNoPP pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nClanInfluencePP eClanInfluencePP nClanInfluenceNoPP eClanInfluenceNoPP pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nClanInfluencePP eClanInfluencePP nClanInfluenceNoPP eClanInfluenceNoPP pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001)  replace
esttab using "table/tableA3_noPP.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.4 
* faction based on work connection
label var nworkClanInfluence "Patron Power (News)"
label var eworkClanInfluence "Patron Power (Event)"
label var diffworkClanInfluence "$\Delta$ Patron Power"
label var pgnworkfaction "PS-GN Same Faction (News)"
label var pgeworkfaction "PS-GN Same Faction (Event)"
label var nworkfaction1 "Single Faction Ties (News)"
label var nworkfaction2  "Multiple Faction Ties (News)"
label var eworkfaction1 "Single Faction Ties (Event)"
label var eworkfaction2  "Multiple Faction Ties (Event)"
label var nworkfactionno1  "News=0 and Event=1"
label var eworkfactionno1  "News=1 and Event=0"
label var bworkfactionyes "News=0 and Event=0"
* corruption news
eststo clear
eststo: qui reghdfe corruptionreport nworkClanInfluence eworkClanInfluence pgnworkfaction pgeworkfaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nworkClanInfluence eworkClanInfluence pgnworkfaction pgeworkfaction nworkfactionno1 eworkfactionno1 bworkfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nworkClanInfluence eworkClanInfluence pgnworkfaction pgeworkfaction nworkfaction1 nworkfaction2 eworkfaction1 eworkfaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
* share of corruption news from all news reported by news prov
eststo: qui reghdfe corruptionreport_norm nworkClanInfluence eworkClanInfluence pgnworkfaction pgeworkfaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nworkClanInfluence eworkClanInfluence pgnworkfaction pgeworkfaction nworkfactionno1 eworkfactionno1 bworkfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nworkClanInfluence eworkClanInfluence pgnworkfaction pgeworkfaction nworkfaction1 nworkfaction2 eworkfaction1 eworkfaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001)   replace
esttab using "table/tableA4_workplace.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.5 
* relative power with work connection
eststo clear
eststo: qui reghdfe corruptionreport diffworkClanInfluence pgnworkfaction pgeworkfaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffworkClanInfluence pgnworkfaction pgeworkfaction nworkfactionno1 eworkfactionno1 bworkfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffworkClanInfluence pgnworkfaction pgeworkfaction nworkfaction1 nworkfaction2 eworkfaction1 eworkfaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)

eststo: qui reghdfe corruptionreport_norm diffworkClanInfluence pgnworkfaction pgeworkfaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffworkClanInfluence pgnworkfaction pgeworkfaction nworkfactionno1 eworkfactionno1 bworkfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffworkClanInfluence pgnworkfaction pgeworkfaction nworkfaction1 nworkfaction2 eworkfaction1 eworkfaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)

esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001)  replace
esttab using "table/tableA5_workplace_powerdiff.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.7
* Alternative Definitions of Factions (No Faction as Single Faction)
eststo clear
* corruption news
eststo: qui reghdfe corruptionreport nThreeClanInfluenceSingle eThreeClanInfluenceSingle pgnThreefactionSingle pgeThreefactionSingle agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nThreeClanInfluenceSingle eThreeClanInfluenceSingle pgnThreefactionSingle pgeThreefactionSingle nThreefactionSingleno1 eThreefactionSingleno1 bThreefactionSingleyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nThreeClanInfluenceSingle eThreeClanInfluenceSingle pgnThreefactionSingle pgeThreefactionSingle nThreefactionSingle1 nThreefactionSingle2 eThreefactionSingle1 eThreefactionSingle2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
* share of corruption news from all news reported by news prov
eststo: qui reghdfe corruptionreport_norm nThreeClanInfluenceSingle eThreeClanInfluenceSingle pgnThreefactionSingle pgeThreefactionSingle agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nThreeClanInfluenceSingle eThreeClanInfluenceSingle pgnThreefactionSingle pgeThreefactionSingle nThreefactionSingleno1 eThreefactionSingleno1 bThreefactionSingleyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nThreeClanInfluenceSingle eThreeClanInfluenceSingle pgnThreefactionSingle pgeThreefactionSingle nThreefactionSingle1 nThreefactionSingle2 eThreefactionSingle1 eThreefactionSingle2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001)  replace
esttab using "table/tableA7_threefaction_single.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.8
* Alternative Definitions of Factions (No Faction as One United Faction)
eststo clear
* corruption news
eststo: qui reghdfe corruptionreport nThreeClanInfluenceNone eThreeClanInfluenceNone pgnThreefactionNone pgeThreefactionNone agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nThreeClanInfluenceNone eThreeClanInfluenceNone pgnThreefactionNone pgeThreefactionNone nThreefactionNoneno1 eThreefactionNoneno1 bThreefactionNoneyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nThreeClanInfluenceNone eThreeClanInfluenceNone pgnThreefactionNone pgeThreefactionNone nThreefactionNone1 nThreefactionNone2 eThreefactionNone1 eThreefactionNone2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
* share of corruption news from all news reported by news prov
eststo: qui reghdfe corruptionreport_norm nThreeClanInfluenceNone eThreeClanInfluenceNone pgnThreefactionNone pgeThreefactionNone agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nThreeClanInfluenceNone eThreeClanInfluenceNone pgnThreefactionNone pgeThreefactionNone nThreefactionNoneno1 eThreefactionNoneno1 bThreefactionNoneyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nThreeClanInfluenceNone eThreeClanInfluenceNone pgnThreefactionNone pgeThreefactionNone nThreefactionNone1 nThreefactionNone2 eThreefactionNone1 eThreefactionNone2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001)  replace
esttab using "table/tableA8_threefaction_none.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.9
* President's Power and Interprovincial News Reports on Corruption Cases
eststo clear
eststo: qui reghdfe corruptionreport chairman_power nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov  en) vce(r)
eststo: qui reghdfe corruptionreport chairman_power nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov   en) vce(r)
eststo: qui reghdfe corruptionreport chairman_power nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov   en) vce(r)

eststo: qui reghdfe corruptionreport_norm chairman_power nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov   en) vce(r)
eststo: qui reghdfe corruptionreport_norm chairman_power nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov   en) vce(r)
eststo: qui reghdfe corruptionreport_norm chairman_power nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov   en) vce(r)
esttab  , b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA9_president.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

 
** Table A.10
* Political Cycle and Interprovincial News Reports on Corruption Cases
eststo clear
eststo: qui reghdfe corruptionreport NPC_year nClanInfluence eClanInfluence inter_of_NPC_nClanInfluence inter_of_NPC_eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov year  en) vce(r)
eststo: qui reghdfe corruptionreport NPC_year nClanInfluence eClanInfluence inter_of_NPC_nClanInfluence inter_of_NPC_eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov year   en) vce(r)
eststo: qui reghdfe corruptionreport NPC_year nClanInfluence eClanInfluence inter_of_NPC_nClanInfluence inter_of_NPC_eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov  year  en) vce(r)

eststo: qui reghdfe corruptionreport_norm NPC_year nClanInfluence eClanInfluence inter_of_NPC_nClanInfluence inter_of_NPC_eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov year  en) vce(r)
eststo: qui reghdfe corruptionreport_norm NPC_year nClanInfluence eClanInfluence inter_of_NPC_nClanInfluence inter_of_NPC_eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov  year  en) vce(r)
eststo: qui reghdfe corruptionreport_norm NPC_year nClanInfluence eClanInfluence inter_of_NPC_nClanInfluence inter_of_NPC_eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov newsprov year   en) vce(r)

esttab,  b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA10_NPC_year.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
 
 
** Table A.11
* Media Types and Interprovincial News Report on Corruption Cases
eststo clear
eststo: qui reghdfe partylinecorruption nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe partylinecorruption nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe partylinecorruption nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en)

eststo: qui reghdfe partylinecorruption_norm nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe partylinecorruption_norm nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe partylinecorruption_norm nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en)

eststo: qui reghdfe comlinecorruption nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe comlinecorruption nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe comlinecorruption nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
 
eststo: qui reghdfe comlinecorruption_norm nClanInfluence eClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe comlinecorruption_norm nClanInfluence eClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe comlinecorruption_norm nClanInfluence eClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab  , b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA11_type.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.12
* Official Ranking of Patrons and Interprovincial News Reports on Corruption Case
eststo clear
eststo: qui reghdfe corruptionreport nRank_total eRank_total pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nAverageRank eAverageRank pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nRank_high eRank_high pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffClanRank pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)

eststo: qui reghdfe corruptionreport_norm nRank_total eRank_total pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nAverageRank eAverageRank pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nRank_high eRank_high pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffClanRank pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab  , b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA12_official_ranking.tex", order(nRank_total eRank_total nAverageRank eAverageRank nRank_high eRank_high diffClanRank) b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace


** Table A.13
* Patron's Power and Interprovincial News Reports on Corruption Cases (Average of Patron Power)
eststo clear
eststo: qui reghdfe corruptionreport nAverageInfluence eAverageInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nAverageInfluence eAverageInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nAverageInfluence eAverageInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffAverageInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
 
eststo: qui reghdfe corruptionreport_norm nAverageInfluence eAverageInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nAverageInfluence eAverageInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nAverageInfluence eAverageInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffAverageInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA13_average_power.tex", order(nAverageInfluence eAverageInfluence diffAverageInfluence) b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace


** Table A.14
* Patron's Power and Interprovincial News Reports on Corruption Cases (Log of Patron Power)  
eststo clear
* corruption news
eststo: qui reghdfe corruptionreport nClanInfluenceLog eClanInfluenceLog pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nClanInfluenceLog eClanInfluenceLog pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nClanInfluenceLog eClanInfluenceLog pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
* share of corruption news from all news reported by news prov
eststo: qui reghdfe corruptionreport_norm nClanInfluenceLog eClanInfluenceLog pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nClanInfluenceLog eClanInfluenceLog pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nClanInfluenceLog eClanInfluenceLog pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001)  replace
esttab using "table/tableA14_log_count.tex", b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
 

** Table A.15
* Patron's Power and Interprovincial News Reports on Corruption Cases (Patron Power in News Title) 
eststo clear
eststo: qui reghdfe corruptionreport nTitleClanInfluence eTitleClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nTitleClanInfluence eTitleClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nTitleClanInfluence eTitleClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffTitleClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
 
eststo: qui reghdfe corruptionreport_norm nTitleClanInfluence eTitleClanInfluence pgnfaction pgefaction agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nTitleClanInfluence eTitleClanInfluence pgnfaction pgefaction nfactionno1 efactionno1 bfactionyes agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nTitleClanInfluence eTitleClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffTitleClanInfluence pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA15_title_power.tex", order(nTitleClanInfluence eTitleClanInfluence diffTitleClanInfluence) b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

** Table A.16
* Patron's Network Power and Interprovincial News Reports on Corruption Case
eststo clear
eststo: qui reghdfe corruptionreport nNetwork_total eNetwork_total   pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport nAverageNetwork eAverageNetwork   pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport diffNetwork  pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)

eststo: qui reghdfe corruptionreport_norm nNetwork_total eNetwork_total   pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm nAverageNetwork eAverageNetwork   pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
eststo: qui reghdfe corruptionreport_norm diffNetwork  pgnfaction pgefaction nfaction1 nfaction2 efaction1 efaction2 agegap yiogap if newsprov!=11 & eventprov!=11, ab(eventprov year newsprov en) vce(r)
esttab, b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace
esttab using "table/tableA16_network_power.tex", order(nNetwork_total eNetwork_total nAverageNetwork eAverageNetwork  diffNetwork )   b(%12.3fc) se ar2 nogap label star(+ 0.10 * 0.05 ** 0.01 *** 0.001) replace

